celltype <- "0"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data", show_split = F)
}
celltype <- "1"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "2"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "3"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "4"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "5"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "6"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "7"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "8"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}
celltype <- "9"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)
for (i in 1:6) {
plot_ridge(scrna, id = celltype, genes = markers[i,]$gene,
aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}